A Simple Software l 2 C 
Routine for the COP8 



INTRODUCTION 

This brief paper describes a simple "Master mode" software 
l 2 C driver for the COP8 microcontroller. Two instances are 
presented. In the first I included a bit-filtering routine as al- 
luded to in the Phillips spec. This improves the "robustness" 
of the communication channel in noisy environments. Since 
this added feature tends to slow things down rather mark- 
edly, a second instance is coded via conditional assembly 
that skips the bit-filtering altogether, doing only a quick and 
dirty read of the SDA pin. This version runs slightly faster, if 
you need the speed. The version you choose will depend en- 
tirely upon your application requirements. The routines have 
been successfully tested with National's LM75 and LM84 l 2 C 
temperature sensors. 

DISCUSSION 

Among other things, the Philips spec describes their bus as 
follows: 

• It requires only two lines: SDA (Serial Data) and SCL (Se- 
rial Clock). 

• It is multi-master — i.e., there can be more than one de- 
vice on the bus that initiates a transmission. 

• Every device on the bus possesses a unique address. 

• Nominal 1 00 kbit/sec transfer rate, and up to 400 kbit/sec 
in "fast mode". 

• Describes "bit filtering" within each node, serving to reject 
spurious noise thereby improving data integrity. 

• The number of devices on the bus limited only by the 
maximum bus capacitance of 400 pF. 

Examination of software l 2 C implementations reveal that 
most of them have "deimplemented" the multi-master fea- 
tures of the Philips spec. This is simply because the over- 
head required to fully comply with the Philips spec (e.g., ar- 
bitration; clock synchronization; bit-filtering; etc.) would 
result in much slower speeds than would otherwise be 
achievable — and most of the time these features are just not 
needed. If one's application is solely a "single master" sys- 
tem, most of this additional overhead is indeed unnecessary. 
However, because of the potential benefits of bit filtering in 
noisy environments, I've written this code to allow inclusion 
of this feature if desired. 
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The code comprises essentially two routines: 

Send_l2C 

• Transmits 'B' bytes held in the transmit buffer (l2CtxBuff) 

• All transmissions begin with the 'START' pattern... 

• The slave's address is sent first, the LSBit of which is the 
R/W indicator. 

• After each byte is sent, the addressed slave is expected 
to 'ACK' by pulling the SDA line low. 

• If slave fails to 'ACK' at any time, an error flag is set... 

• Otherwise, we're done! 

Read_l2C 

• Prior to entry, a slave device must have been previously 
addressed and instructed that the master wishes to 
READ from it. 

• Clocks in 'B' bytes from the pre-addressed slave and 
places them into the I2C receive buffer (l2CrxBuff). 

• Following each received byte, an 'ACK' is sent, indicated 
by pulling the SDA line low... 

• After receiving 'B' bytes, the 'Not Acknowledged' (NACK) 
is sent. 

• Followed immediately by the 'STOP' pattern. 

If one chooses to include the bit-filtering routine, it simply 
samples the SDA pin at equally spaced intervals and takes a 
majority vote as to its disposition. This adds 23 cycles, which 
would otherwise be unnecessary. 
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Source Code 

Main. asm 

.TITLE , 'Main Module, VI. 0, 07.13.98' 

. incld cop8sgr.inc 

; .incld cop888gg.inc 

.incld main.inc 

.incld optrex2x.inc 

.incld keys . inc 

. incld si2c . inc 

; PUBLIC VARIABLES 

.public Mflags, flags, REGO, REG1, REG2, REG3 

; EXTERNAL PROCEDURES 

.extrn Display_Init, Keyboard_Init, I2C_Init, Service_Keyboard, Menulnit 

.extrn Menu_Selector, TaskScheduler, Service_Display, LM75_Init 

.extrn InputBuf f Init 

; EXTERNAL CONSTANTS 

.extrn Init_Msg: ROM, InitMPB 

; EXTERNAL VARIABLES 

.extrn Key_State:B, Key_Code:B, Key_Flags:B, Key_State_Matrix : B 

.extrn MPBuffer:B, LM75_Timer :REG, Util_Flags:B 

; VARIABLE DEFINITIONS 

.sect variables, SEG ; Place all vars in upper ram segment 

flags: .dsb 1 ; Main general purpose flags 

Mflags: .dsb 1 ; Main general purpose flags 

Beeper_State : .dsb 1 

. endsect 



.sect stack, RAM 
USERSTACK: .dsb 20 
. endsect 

REGISTER DEFINITIONS 
.sect ScratchRegs, REG, ABS=0xF0 



ScratchO: 


.dsb 


1 


Scratchl : 


.dsb 


1 


Scratch2 : 


.dsb 


1 


Scratch3 : 


.dsb 


1 


. endsect 







Stack is always segO 

20 bytes of Stack allocation 



These are scratch and general purpose 



.sect MainRegs,REG 
MainLoopCounter : 
. endsect 

.sect MAIN, ROM 

. ****************** 



.dsb 



Used for implementing real time delays 



r ****** *i 



r***********il 



r ****** * 



COLDSTART: 


rbit 


GIE,PSW 


Id 


SP, #topof stack 


Id 


MainLoopCounter, #0 


jsr 


RTC_Init 


Id 


S,#01 


sbit 


TRUN,CNTRL 


sbit 


GIE,PSW 


. ***** 


Initialize hardware 


jsr 


Keyboard_Init 


jsr 


Display_Init 


jsr 


I2C_Init 


jsr 


LM75_Init 


jsr 


Menulnit 


jsr 


InputBuf f Init 


Id 


flags, #0 


Id 


Mflags, #0 



Ensure interrupts are disabled 
Init stack pointer 
Clear Main loop Timer 
Init timerl 

Set ram segment to user variables 
Start timer 
Enable all interrupts 
interfaces 

; Init Keyboard 



Init I2C interface 
Init the LM75 Temp sensor 
Initiallize menu system 
Init ASCii buffer ptrs 
Clear various flag regs 



Id 



Util_Flags,#0 



r*********************** 



r****************^ 



r******** 



NAME: Main_Loop Main loop in program. 



<-*******-* 



c ***** * 



<-*******-* 



c ****** 1 



<-*******-* 



c ****** 1 
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Main_Lo 


op : 






rbit 


TimerTic 


k,Mf lags 


; Reset scheduling tick 


jsr 


Service_ 


Keyboard 


; Scan Keyboard 
; Key thrown? 


if eq 


Key_Stat 


e, #PressTransitionState 


jsr 


Menu_Se lector 


; Yes-Execute requested service 


jsr 


TaskSche 


duler 


; Execute current Task 


jsr 


Service_ 


Display 


; Update Display 




jsr 


ComputeUti 


lization 


$WaitForTick: 






ifbit 


TimerTic 


k,Mf lags 


; Wait for realtime to expire 


JP 


Main_Loc 


P 




JP 


$WaitFor 


Tick 




. *************** 


*********************************************************** 


;* 




Interrupt Eingang 


. ****** 


******************** 


************************************************ 


. sect 


intr,ROM,ABS=000FF 




; 7 eye 


les from 


detection c 


f interrupt to here 


push 


A 




; save A 3 


Id 


A,B 




; save B 3 


push 


A 




; 3 


Id 


A,PSW 




; save PSW 3 


push 


A 




; 3 


Id 


A,X 




; save X 3 


push 


A 




; 3 


vis 






; vector to highest pending. 5 

; 26 cycles 


. ****** 


********* 


*********** 


************************************************ 


; 




Interrupt ausgang 


. ****** 


********* 


*********** 


************************************************ 


IntrX: 








pop 


A 




/restore regs as stacked 


X 


A,X 






Id 


B, #PSW 






pop 


A 






re 








ifbit 


#6, A 




;C=1? set carry 


sbit 


#6, [B] 






ifbit 


#7, A 




;HC=1?; set half-carry 


sbit 


#7, [B] 






pop 


A 




r 


X 


A,B 






pop 


A 




; 


reti 








. ****** 


************************** 


; Interrupt Service Vector 


Table 


. ****** 


********* 


*********** 


* * * * * * 


.=01E0 






; rank - name 


. addrw 


Trap 




16 - Default VIS 


. addrw 


Trap 




; 15 - Port L/Wakeup 


. addrw 


Trap 




14 - Timer T3B 


. addrw 


Trap 




13 - Timer T3A/Underf low 


. addrw 


Trap 




12 - Timer T2B 


. addrw 


Trap 




11 - Timer T2A/Underf low 


. addrw 


Trap 




10 - UART Transmit 


. addrw 


Trap 




; 9 - UART Receive 


. addrw 


Trap 




; 8 - Future TBD 


. addrw 


Trap 




; 7 - Microwire/Plus Busy Low 


. addrw 


Trap 




; 6 - Timer TIB reload/capture 


. addrw 


TlA_isr 




; 5 - Timer T1A reload/capture 


. addrw 


Trap 




; 4 - Idle timer (TO) Underflow 


. addrw 


Trap 




; 3 - External GO int 


. addrw 


Trap 




2 - NMI 


. addrw 


SW_TRAP 




; 1 - Software Interrupt 


. endsect 







<J1 
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.sect MAIN, ROM 










Trap: 












jmp 


SW_TRAP 










SW_TRAP 












rpnd 




; These are recommended 








rpnd 












JP 




;wait untill watchdog generates reset 




. ***************************** 


**************************** 


* * * * 


******** 


******* 


; Name : 


Timer_Init 










.************************************************************* 


******** 


******* 


RTC_Init : 










Id 


CNTRL, #084 


; AutoReload mode; GO neg 


edge 


int 




Id 


TMR1LO, #LOW (Main_Perio 


d) ; Load realtime interrupt 


values 




Id 


TMR1HI, #HIGH (Main_Period) 








Id 


T1RALO, #LOW (Main_Perio 


d) 








Id 


T1RAHI, #HIGH (Main_Period) 








sbit 


ENTI,PSW 


; Enable Tl interrupt 








ret 












. ***************************** 


******************************** 


******** 


******* 


; Name : 


TlA_isr Timerl 


Underflow isr 








. ***************************** 


**************************** 


* * * * 


*************** 


TlA_isr 




; 33 cycles to this point 








rbit 


T1PNDA,PSW 


; Reset pending flag 






4 


sbit 


Timer Tick, Mf lags 


; Is this the Rx line? 






4 


Id 


a, MainLoopCounter 


; Increment loop counter 








inc 


a 










X 


a, MainLoopCounter 










Id 


a, LM7 5_Timer 


; See if Other timers neec 


adj 


usting 




ifeq 


a,#0 










JP 


TlA_isr_exit 










dec 


a 










X 


a, LM7 5_Timer 










TlA_isr_ 


.exit : 










jmp 


IntrX 


; get out 








. endsect 










.end COLDSTART 














Display.asm 








.TITLE 


'Display Module, VI. 0, 


07. 13. 98' 








.incld cop8sgr.inc 










; . incld 


cop888gg. inc 










. incld 


main . inc 










. incld 


optrex2x. inc 










. incld 


keys . inc 










. incld 


si2c . inc 










. incld 


utility . inc 










; PUBLIC PROCEDURES 










.public 


Display_Init , Service 


_Display, Display_Message 








; PUBLIC VARIABLES 










.public 


Display_Buf fer, Displa 


y_State 








; EXTERNALS REQ' D 










. extrn 


Load_Constant, Key_Msg 


:ROM 








. extrn 


KeyFlags:B, Key_Buffer 


:B, Key_State:B, flags:B 








; VARIABLE DEFINITIONS 










.sect variables, SEG 


; Place all vars in upper 


ram 


segment 




Display. 


_State: .dsb 1 










display. 


_data: .dsb 1 










Display. 


.Buffer: .dsb 16 


; Densitron display width 








. endsect 










.sect DISPLAY, ROM 










.************************************************************* 


******** 


******* 


; NAME: 


Service_Di splay 










; PARAMETERS : 










; RETURNED: 
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; REGS 


USED: a,b 






; CALLS 








. ****** 


********************************************************************** 


Service 


_Display : 






ifbit 


Disp_Update, Display_State 




JP 


DState_0 


Update req'd? 




JP 


DState_l 


Idle state? 




DState_ 


0: 






jsr 


Update_Di splay 






rbit 


Disp_Update, Display_State 




JP 


Svc_D_Exit 






DState_ 


1: 






nop 








Svc_D_E 


xit : 






ret 








. ****** 


************************* 


********************************************* 


; NAME : 


Display_Init Initial 


Lzes the display 




; PARAMETERS : 






; RETURNED: 






; REGS 


USED: a,b 






; CALLS 


: Display_Control 






. ****** 


********************************************************************** 


Display 


_Init : 






rbit 


RS,PORTD 


Clear RS, R/W, and E 




rbit 


RW,PORTD 






rbit 


E,PORTD 






Id 


a, #DISPLAY_FORMAT 


The M1641 is initialized 


as a Two 


sbit 


CMD, flags 


Indicate this is control 


data 


jsr 


Display_Control 


line display, dispite it 


being only 


sbit 


CMD, flags 


Indicate this is control 


data 


Id 


a,#0E 


a 16X1 




jsr 


Display_Control 


**Display=ON, Cursor=ON, 


Blink=Off 


Id 


a, #01 


**Clear display 




sbit 


CMD, flags 


Indicate this is control 


data 


jsr 


Display_Control 






Id 


Display_State, #0 


Reset state 




ret 








. ****** 


************************* 


********************************************* 


; NAME : 


Display_Message 






; PARAMETERS: ace = #LOW(Messa< 


je Label) 






b = offset of message from start of Message buffer 


; RETURNED: 






; REGS 


USED: a,b 






; CALLS 


: Display_Control 






. ****** 


********************************************************************** 


Display 


_Message : 






push 


a 


Save message address 




Id 


a, #Display_Buf fer 






add 


a,b 


Compute message address 




X 


a,b 






pop 


a 






. * * 


jsr Load_Constant 






sbit 


Disp_Update, Display_Stat( 






. * * 


jsr Update_Displa; 


I 




ret 








. ****** 


************************* 


********************************************* 


; NAME : 


Update_Display Writes 


contents of display buffer 


to display 



<J1 
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PARAMETERS : 










RETURNED : 










REGS 


USED: a,b 










CALLS 


: Display_Con 


trc 


1 






****** 


******************** 


*** 


** 


********************************************* 


. set 


Byte_Count,REGO 








Update_ 


Display : 








Id 


a, #080 






; **Set address to 


sbit 


CMD, flags 






; Indicate this is a control byte 


jsr 


Display_Control 








Id 


b, #Display_Buf fer 






; Point index at buffer 


Id 


Byte_Count,#8 








rbit 


CMD, flags 






; Now these are data bytes 


DSL1: 










Id 


a, [b+] 






; Load byte and increment ptr 


jsr 


Display_Control 






; Send to display 


drsz 


Byte_Count 








JP 


DSL1 








Id 


a,#0c0 






; **Set address to position9 


sbit 


CMD, flags 






; Control byte 


jsr 


Display_Control 








rbit 


CMD, flags 








id 


Byte_Count, #8 








DSL2: 










id 


a, [b+] 






; Load byte and increment ptr 


jsr 


Display_Control 






; Send to display 


drsz 


Byte_Count 








JP 


DSL2 








ret 












****** 


******************** 


*** 


** 


********************************************* 




NAME: 


Display_Control 










PARAMETERS: ace = displ 


ay 


command 






flags.CMD = 


1 


if 


data is a control byte 




RETURNED : 










REGS 


USED: a,x 










CALLS 












****** 


******************** 


*** 


** 


********************************************* 


Display 


_Control : 








push 


a 






; Save command 


id 


a,PORTCC 








and 


a,#0f0 






; Make PortC(0:3) inputs 


X 


a,PORTCC 








Id 


a,PORTLC 








and 


a,#0f0 






; Make PortL(0:3) inputs 


X 


a,PORTLC 








sbit 


RW, PORTD 






; Set R/W line high 


rbit 


RS,PORTD 






; Ensure Instruction reg is selected 


DCL1: 










sbit 


E, PORTD 






; Set E line 


id 


a,PORTCP 






; Read display data 


rbit 


E, PORTD 






; Clr E line 


ifbit 


DBUSY,a 






; Loop until busy flag=0 


JP 


DCL1 








id 


a,PORTLC 








or 


a,#0f 






; Make PortL(0:3) outputs. These are 


X 


a,PORTLC 






; bits 0. .3 


Id 


a,PORTCC 








or 


a,#0f 






; Make PortC(0:3) outputs. These are 


X 


a,PORTCC 






; bits 4. .7 
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Id 


a,PORTLD 


and 


a,#0f0 


X 


a, x 


pop 


a 


push 


a 


and 


a,#0f 


or 


a, x 


X 


a,PORTLD 


Id 


a,PORTCD 


and 


a,#0f0 


X 


a, x 


pop 


a 


and 


a,#0f0 


swap 


a 


or 


a, x 


X 


a,PORTCD 


rbit 


RW,PORTD 


ifbit 


CMD, flags 


JP 


DCL2 


sbit 


RS,PORTD 


JP 


DCL3 


DCL2: 




rbit 


RS,PORTD 


DCL3: 




sbit 


E,PORTD 


rbit 


E,PORTD 


ret 




. endsect 



Get lower nibble data port 
Strip lower nibble 
Exchange with control byte 
Retrieve command 

Strip upper nibble for merging with 

original data 

Write lower nibble of command 

Get upper nibble data port 

Strip lower nibble 

Exchange with control byte 

Retrieve command 

Strip lower nibble for merging with 

Put upper nibble in lower nibble 

Merge with original port data 

Write upper nibble of command 

Is this a control byte? 

Yes - Select the instruction register 

Clr R/W line 



Set E line 
Clr E line 



fasti2c.asm 

TITLE , 'Fast I2C Module' 
incld cop8sgr.inc 
incld main.inc 
incld FastI2 

PUBLIC VARIABLES 
public I2CRxBuff, I2CTxBuff, I2CFlags 

PUBLIC PROCEDURES 
public I2C_Init, Send_I2C, Read_I2C, Send_I2C_Stop 
EXTERNAL PROCEDURES 
EXTERNALS REQ'D 
VARIABLE DEFINITIONS 
.sect variables, SEG 
I2CFlags: . dsb 1 
I2CRxBuff: .dsb 2 
I2CTxBuff: .dsb 4 
. endsect 



; I2C control/condition flags 
; Receive buffer 
; Transmit buffer 



REGISTER DEFINITIONS 
FORM 

sect I2C,R0M 
**************************************************************************** 



Name: I2C_Init 
PARAMETERS : 

RETURNED: 
REGS USED: 



CALLS: 
*********************************** 



Initializes I2C port and flags 



<****************•» 



<**************** 



I2C_ 


_Init : 






Id 


a 


I2CPort 




and 


a 


# (NOT (SDAT 


SCLK) ) 


X 


a 


I2CPort 




Id 


a 


I2CPTD 




and 


a 


# (NOT (SDAT 


SCLK) ) 



Make SDA and SCL HiZ inputs 
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X 


a, I2CPTD 






Id 


I2CFlac 


s,#0 




; Clear I2C flags 


ret 












.FORM 












. ****** 


************* 


********************************************************* 


; Name : 


Filt 


er_ 


Input 




Samples the Rx pin three times at even intervals and 
then takes the majority as the bit decision. The SCL 
line is low upon entering and is released to its high 
state prior to sampling. 


; sc 


L 






1 






\_ 






/ 




x x x \_/ 


; SDA 


_/ 


\ 




III / \ 






3 


sampl 


es 


-> 1 1 1 


; PARAMETERS 




SCL 


is 


m the "low" state 








I2CFlag 


3 . STRT either set or cleared 


; RETURNED: 




Carr 


y = 


rec' d bit 


; REGS 


USED: 




a,b 






; CALLS 






- 






; Exec 


time : 




23 c 


ycles 


. ****** 


********************************************************************** 


Filter_ 


Input 










rbit 


SOL, 


I2CPort 




; Release clock line (high) 


Id 


b, #I2CPTP 




; Point b at Port's pin reg 


clr 


a 










nop 










; Duty cycle equalizing nop 


ifbit 


SDA, 


[b] 






; Sample 3 times, 2 cycles apart 


inc 


a 










ifbit 


SDA, 


[b] 






; Sample #2 


inc 


a 










ifbit 


SDA, 


[b] 






; Sample #3 


inc 


a 










re 










; Reset Carry for bit decision 


ifgt 


a,#l 








; Majority rules 


sc 










; Set Carry if bit is a one 


; Otherwise, 


bi 


t is 


a zero 


ret 










/ 


.FORM 












. ****** 


********************************************************************** 


; Name : 


Send 


_I2C 




Transmits 'B' bytes held in I2CTxBuffer. After each 












byte is sent an "ACK" is expected from the slave 












device. All transmissions begin with the "START" 




cond 


ition, f 


ollowed by the device address. The lsbit of the address 




is the 


R/W bit. 


Both SCL and SDA must be in the "high" state upon 




enterir 


g- 








SOL 




< 


s 

t 




-> I | <- Slave reads bit here 






/ MSB \/ 




SDA 






a 


/ A 


r 
t 


1 

1 <- Master shifts out 1st bit 


; PARAMETERS 




I2CT 


xBuff = byte(s) to be sent (always starts with address) 








a = 


num 


bytes to xmit 








SDA, 


SCL 


must be in high state upon entry 
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; RETURNED: b = I2CPort 






I2CFlags.ACKERR set if not ACK from slave 






SDA, SCL 


both left in high state 




; REGS 


USED: a,b,x 






; CALLS: Filter_Input 




. ***** 


***************************************************************** 


****** 


. set 


Count, REGO 






. set 


Byte_Count,REGl 






. set 


Delay, REG2 






Send_I2C: 






X 


a, Byte_Count 






rbit 


GIE,PSW 


; No interrupts allowed! 




Id 


x, #I2CTxBuff 


; Pointer = I2CTxBuff 




_Send_ 


START_Bit : 






Id 


b,#I2CPort 


; Pointer = Port's control reg 




sbit 


SDA, [b] 


; Pulls SDA low to indicate start of xmit 




_ByteWriteLoop : 


; Min spec'd delay is 4us to SCK edge 




Id 


Count, #8 


; Set for 8-bit data 




_BitWriteLoop : 






sbit 


SCL, [b] 


; Pull SCL line low 




Id 


a, [x] 


; Get next bit from I2CTxBuff and shift out 




rlc 


a 


; to SDA line. 




X 


a, [x] 


; Save shifted byte 




ifc 




; Bit=l? 




JP 


_SendOne 


; Yes - let pin pull high via Rpullup 




_SendZ 


ero : 






nop 




; Path equalization nops 




nop 








sbit 


SDA, [b] 


; No - pull SDATA pin low by configuring pin 




JP 


_Send01 


; as a low output 




_SendC 


ne : 






rbit 


SDA, [b] 


; Set SDATA pin high by making pin HiZ 




nop 




; Equalizes 1 and path Delays 




nop 








nop 








_Send01: 






DELAY_ 


3Cycles 


; Give some extra setup time, just in case 




rbit 


SCL, [b] 


; Let loose of clock line to set it high 




DELAY_ 


SCKHIGH 


; Equalize hi and lo times 




drsz 


Count 


; All 8-bits sent? 




JP 


_BitWriteLoop 


; No, Loop 




Id 


a, [x] 


; Must shift a 9th time to reset to correct 




rlc 


a 


; state . 




X 


a, [x+] 


; Bump ptr to next xmit byte 




_CheckACK: 


; After byte sent, check for "ACK" from 


slave 


sbit 


SCL, [b] 


; Pull SCL low 




DELAY_ 


SCKLOW 


; Wait for equalization 




rbit 


SDA, [b] 


; Release SDA line to check for ACK 




jsr 


Filter_Input 


; Read the input with filtering 




ifc 




; ACK should be a zero! 




JP 


_ACKERR 






rbit 


ACKERR, I2CFlags 


; Clear error 




Id 


b, #I2CPort 


; Pointer = Port's control reg 




drsz 


Byte^Count 


; All bytes sent? 




jmp 


_ByteWriteLoop 


; No, loop 




JP 


_Send_I2C_Exit 


; Yes, get out 




_ACKERR : 






sbit 


ACKERR, I2CFlags 


; Set error flag 




_Send_ 


I2C_Exit : 






sbit 


GIE,PSW 


; reEnable all interrupts 




ret 








.FORM 








. ***** 


*********************************************************************** 


; Name 


: Send_I2C_Stop 


Transmits the "Stop" sequence on the I2C bus as 
indicated below. 





<J1 
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; PARAMETERS: SDA and SCL must be in HIGH state upon entry 


; RETURNED: b = #I2CPort 


; SDA, SCL both left in high state 


; REGS USED: 


; CALLS : 


.**************************************************************************** 


.set Delay, REG2 


Send_I2C_Stop: 


Id b,#I2CPort 


sbit SCL, [b] ; Pull SDC line to prepare for STOP 


DELAY_12C ; Delay to rising edge of SCL 


sbit SDA, [b] 


DELAY_9C ; Delay for equalization 


rbit SCL, [b] ; Release SCL line for high 


DELAY_9C ; Delay for equalization 


rbit SDA, [b] ; Release SDA line to indicate STOP 


ret 


.FORM 


. **************************************************************************** 


; Name: Read_I2C Clocks in B bytes from a slave and places them into the 


; I2CRxBuffer. After each byte is read, an "ACK" is sent. 


; After the last byte is read a "NACK" is sent, followed by the "STOP" 


; bit. This routine assumes prior sending of the I2C device address and 


; "read" bit - i.e. - no "Start" bit is sent here. 


; |< 23 eye >|< 23 eye > 


; SCL | 23cyc 1 1 1 1 




; III \_/ 


; SDA III / \ 


; 3 samples -> I I 


; PARAMETERS: SCL is assumed to be in the low state upon entering 


; a = no. of bytes to read 


; RETURNED: I2CRxBuff holds slave data byte(s) 


; REGS USED: a,b,x 


; CALLS: Filter_Input 


.**************************************************************************** 


.set Count, REGO 


.set Byte_Count,REGl 


Read_I2C: 


rbit GIE,PSW ; No interrupts allowed! 


Id x,#I2CRxBuff ; Pointer = RcvBuffer 


x a,Byte_Count ; Setup for byte loop 


sbit SCL, I2CPort ; Pull clock line low 


_ByteReadLoop : 


Id Count, #8 ; Set for 8-bit data 


_BitReadLoop : 


jsr Filter_Input ; Read the input with filtering 


sbit SCL, I2CPort ; Toggle clock line low 


Id a, [x] ; Get ree'd byte in progress 


rlc a ; and rotate in the new bit 


x a, [x] ; 


drsz Count ; 8 bits ree'd? 


jp _BitReadLoop ; Loop until all 8 bits are ree'd 


drsz Byte_Count ; All bytes read? 


jp _Send_ACK_Bit ; No, send "ACK" and loop 


_Send_NACK_Bit : ; Yes, send "NACK" and "STOP" 


rbit SDA, I2CPort ; Release SDA line to indicate NACK 
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rbit 


SCL, I2CPort 


DELAY_ 


_9C 


jsr 


Send_I2C_Stop 


JP 


_ReadExit 


_Send_ 


_ACK_Bit : 


sbit 


SDA, I2CPort 


rbit 


SCL, I2CPort 


X 


a, x 


inc 


a 


X 


a, x 


DELAY_ 


_9C 


sbit 


SCL, I2CPort 


rbit 


SDA, I2CPort 


DELAY_ 


_9C 


jmp 


_ByteReadLoop 


_ReadExit : 


sbit 


RBF, I2CFlags 


sbit 


GIE,PSW 


ret 




. endsect 



Release SCL line for high 

Wait for end of high period 

and then send the STOP condition 



Yes - Pull SDA line low 
Release SCL line for high 
Increment Rx buffer pointer 



Wait for end of high period 

Pull SCL line low 

Release SDA line for next bit 

Delay before looping for equalization 



Set buffer full flag 
reEnable all interrupts 



Keys.asm 

.TITLE ,'Keys Module, VI. 0, 07.13.98' 

. incld cop8sgr.inc 

; . incld cop888gg.inc 

.incld main. inc 

.incld keys. inc 

.incld optrex2x.inc 

.incld si2c.inc 

; PUBLIC PROCEDURES 

.public Service_Keyboard, Keyboard_Init 

.public Key_Flags, Key_Buffer, Key_State, Key_Code, Key_State_Matrix 

; EXTERNALS REQ'D 

.extrn Key_Msg 

; VARIABLE DEFINITIONS 

.sect variables, SEG 

Key_State: 

Key_Buf fer : 

Key_Code : 

Key_Flags : 

Key_State_Matrix : 

Key_Change_Matrix : 

. endsect 



Place all vars in upper ram segment 
Used for transitioning 
Holds ASCii value of current Key 
Circ buffer holding last 4 keycodes 

Holds the prev and current states of kbd 
Holds the changes occurring in the kbd 



.dsb 


1 


.dsb 


1 


.dsb 


4 


.dsb 


1 


. dsb 


4 


. dsb 


4 



: REGISTER DEFINITIONS 
.sect KeysRegs,REG 
. endsect 

FORM 

sect KEYS, ROM 



r************* 



r*********************************************************** 



NAME: Keyboard_Init 
PARAMETERS : 

RETURNED: 

REGS USED: 

CALLS: 
**************************************************************************** 

Keyboard_Init : 

Id Key_State,#0 

Id Key_Flags,#0 

Id a,ROWS_PORT 

or a,#0f 

x a,ROWS_PORT 



; Start in state #0 
; Clear flags 

; Set all row drivers 
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Id 


b, #Key_State_Matrix 




Id 


[b+],#0ff ; 


Clear State pattern buffer 


Id 


[b+] ,#0ff 




Id 


[b+] , #0ff 




Id 


[b] ,#0ff 




ret 






.FORM 








sect KEYSTATE,ROM, INPAGE 






**************************************************************************** 




NAME 


Sevice_Keyboard Entry p 


Dint for key module 




PARAMETERS : 






RETURNED : 






REGS 


USED: a,b 






CALLS: CompareKeyState, 


3can_Keys 




*************************************************************************** 


Service_Keyboard: 




Id 


a, Key_State 




ifgt 


a, #4 ; 


Keystate is LT 4 or error 


jsr 


Keyboard_Init ; 


Reinit if error 


add 


a, #LOW(Key_State_Table) ; 


If ok, jump to current state process 


jid 






Key_State_Table: 




.byte 


LOW(KState_0) 




.byte 


LOW(KState_l) 




.byte 


LOW(KState_2) 




.byte 


LOW(KState_3) 




.byte 


LOW(KState_4) 




KState_ 


_0: 


. *** Idle s tate *** 


jsr 


Scan_Keys ; 


Read current keyboard state 


jsr 


CompareKeyState 




ifbit 


CHANGE, Key_Flags ; 


Key CHANGE detected? 


Id 


Key_State, #Debounce_State 


; Yes - adjust state variable 


JP 


SvcKey_Exit ; 


for debounce 


KState_ 


.1 : 


. *** Debounce state *** 


jsr 


Scan_Keys ; 


Get keyboard state 


jsr 


CompareKeyState ; 


Change in keyboard? 


ifbit 


CHANGE, Key_Flags ; 


If last change detected has endured 


JP 


_KSla ; 


debounce test, then go read change 


Id 


Key_State, #Key_Idle_State 


; If not, reset state to idling 


JP 


SvcKey_Exit ; 


and exit 


_KSla: 






ifbit 


PRESS, Key_Flags ; 


Is this a press?? 


JP 


_KSlb ; 


Yes - go 


Id 


Key_State, #ReleaseTransit 


ionState 


JP 


_KSlc ; 


Ignore releases (for now) 


_KSlb: 






jsr 


Find_Key ; 


Decode key position 


Id 


a,Key_Code ; 


Get offset previously determined 


add 


a, #LOW(Key_Table) 




laid 


; 


Load key from ROM 


X 


a,Key_Buffer ; 


Save in buffer 


Id 


Key_State, #PressTransitionState 


_KSlc: 






jsr 


UpdateKeyState ; 


Write current pattern to last pattern 


JP 


SvcKey_Exit 




KState_ 


_2: ; 


*** Transition State *** 


id 


Key_State, #Key_Idle_State 




JP 


SvcKey_Exit ; 


buffer 


KState_ 


_3: 




id 


Key_State, #Key_Idle_State 




JP 


SvcKey_Exit 




KState_ 


_4 : 




id 


Key_State, #Key_Idle_State 
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SvcKey_ 


_Exit : 








ret 










Key_Table: 








.byte ' 


1' , ' 2' , ' 3' , 'A' 


, ' 4' , 


'5 


, ' 6' , 'B' , ' 7' , ' 8' , ' 9' , 'C 


.byte ' 


P' , ' 0' , 'E' , 'D' 




; 


P=Prev E=Enter 


. endsect 








.FORM 










.**************************************************************************** 


; NAME 


Scan_Keys 


Scans 


the 


Keyboard by sequentially clearing each row 






driver 


an 


i then reading and storing all four column 






bits into 


the low nibble of the associated byte of the 




Key_State_Matrix 


buf fe 


r (that byte being the currently selected row) . 




This buffer comp 


rises 


four (4) bytes: One byte for each row of the 




keyboard. The upper nibble of each byte holds the 'previous state', 




while the lower 


nibble 


ho 


Ids the current state.... 




Rowl : 


Previous 


ST. Current ST. 


C4 C3 


C2 


CI C4 C3 C2 CI Byte 




Row2 : 


C4 C3 


C2 


CI C4 C3 C2 CI Byte 1 




Row3 : 


C4 C3 


C2 


CI C4 C3 C2 CI Byte 2 




Row4 : 


C4 C3 


C2 


CI C4 C3 C2 CI Byte 3 


; PARAMETERS : 








; RETURNED: 








; REGS 


USED: a,b,x, REGO 






; CALLS : 








. * * * * * j 


*********************** 


* * * 


******************************************** 


. set 


ROWS_MASK, REGO 






; Temporary 


. set 


Byte_Count, REG1 






; Temporary 


Scan_Keys : 








Id 


b,#Key_State_Mat 


rix 




Point b index at key state buffer 


Id 


Byte_Count, #4 






Set loop counter 


Id 


x,#ROWS_PORT 






Point x index at rows port 


Id 


ROWS_MASK, #0fe 






Set mask to select first row 


Scan_Loop : 








Id 


a, [x] 




; 


Read current Row pattern to enable 


or 


a,#0f 




; 


only the one indicated by ROWS_MASK 


and 


a,ROWS_MASK 








X 


a, [x] 






Write new row pattern 


Id 


a,COLS_PORT 






Read column pattern 


and 


a,#0f 






Strip upper nibble of Port 


X 


a, [b] 






Retrieve current/last row 


and 


a,#0f0 






Keep last info and strip low nibble 


or 


a, [b] 






Merge in new pattern and 


X 


a, [b+] 






Save in buffer - increment ptr 


Id 


a,ROWS_MASK 






Now shift the mask 


sc 
rlc 


a 




• 


Shift row mask left 


X 


a,ROWS_MASK 




; 


Save next row pattern 


drsz 


Byte_Count 








JP 


Scan_Loop 




} 


All four rows scanned ? 


ret 










.FORM 










. * * * -k * J 


********************************************************************** 


; NAME 


CompareKeyState 




Determines if/where change (s) has occured in 
the Keyboard. The Key_State_Matrix buffer 




comprises four (4) byt 


bs : 


One byte for each row of the keyboard. 




The upper nibble 


of each byte holds the 'previous state', while the 




lower nibble holds the 


current state. Next, the exact CHANGES in the 




Keyboard are det 


ermine 


i and saved in the Key_Change_Matrix . A '1' in 




the upper nibble 


indicates a 'PRESS', and, conversely, a '0' indicates 




a 'RELEASE' . i. 


e . . . . 
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[Key_State_Matrix] 



[Key_Change_Matrix] 





Prev 


state 


Cu 


rr 


state 




PRESS/REL 




CHANGED 




C 


c 


C 


C 


C 


C 


C 


C 




C 


c 


c 


C 


c 


C 


c c 




o 


o 


o 


o 


o 


o 


o 


o 




o 


o 


o 


o 


o 


o 


o o 




1 


1 


1 


1 


1 


1 


1 


1 




1 


1 


1 


1 


1 


1 


1 1 




4 



3 

: 


2 

1 


1 
1 


4 

1 


3 

1 


2 

1 


: 




Rowl 


4 


3 


2 


1 


4 


3 


2 1 


el: 


: 











1 





1 


e2: 


: 


: 


1 


1 


1 


1 


1 


: 


Row2 























e3: 


: 


: 


1 


1 


1 


1 


1 


: 


Row3 























e4: 


: 


: 


1 


1 


1 


1 


1 


: 


Row4 
























For example, the above data indicates the key[ll] has been pressed 
and key [14] has been released. 

PARAMETERS : 

RETURNED : 

REGS USED: a, b, x, REGO 



CALLS : 



r******************************************************************** 



set TempReg, REGO 
set Byte_Count, REG1 
CompareKeyState : 



Id 


b, #Key_State_Mat 


Id 


x, #Key_Change_Ma 


Id 


Byte_Count, #4 


rbit 


PRESS, Key_Flags 


rbit 


CHANGE, Key_Flags 


CKSLoopO: 


Id 


a, [b] 


swap 


a 


xor 


a, [b] 


i f e q 


a,#0 


JP 


_CKSa 


sbit 


CHANGE, Key_Flags 


_CKSa: 




x 


a, TempReg 


Id 


a, TempReg 


and 


a, [b] 


and 


a,#0f0 


. ***** 


TEST CODE 


ifgt 


a,#0 


sbit 


PRESS, Key_Flags 


. ***** 




X 


a, TempReg 


and 


a,#0f 


or 


a, TempReg 



x a, LxJ 

. * * * * * 

Id a, [b+] 

Id a, [x+] 

drsz Byte_Count 

jp CKSLoopO 
ret 
.FORM 
************************** 

NAME: UpdateKeyState Upda 

The 
and 

PARAMETERS : 



Temporary 
Temporary 



; Do 4 rows 

; Reset press flag for debounce test 

; Reset change flag for debounce test 

Load a row pattern 

Exchange nibble order for testing 

Compare states 

Any change in new pattern? 

No - continue 

Yes - indicate change 

; Determine the nature of the changes . 

; Test for PRESS/RELEASE by 'ANDing' 
; with the current row pattern 



; Yes - indicate change 



Merge with change (d) bits 
and save in change matrix 

Increment ptr to state matrix 
Increment ptr to change matrix 
Looked at all 4 rows? 

No - loop 



r*******-* 



c ****** 1 



r*******-* 



c ****** 1 



tes the "LastKeyState matix with current state 
'last' and 'current' states are held the upper 
lower nibbles of the same bytes. 
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; RETURNED: 




; REGS 


USED: a,b 




; CALLS 






. ****** 


************************* 


********************************************* 


. set 


Byte_Count, REG1 


; Temporary 


UpdateKeyState : 




Id 


b, #Key_State_Matrix 


Point indexers at buffers 


Id 


Byte_Count, #4 


set up loop counter 


UKSLO: 






Id 


a, [b] 


Get row from current state 


swap 


a 


put current pattern in last state 


and 


a,#0f0 


Strip old 'last state' bits 


X 


a, [b] 




and 


a,#0f 


Strip old 'last state' bits 


or 


a, [b] 


Merge together with current bits 


X 


a, [b+] 


and save 


drsz 


Byte_Count 


Four rows complete? 


JP 


UKSLO 


No - loop 


ret 






.FORM 






. ****** 


************************* 


********************************************* 


; NAME : 


Find_jCey Determins 


2S offset for ROM table lookup of key pressed 




Sets ern 


nr flag if not found 


; PARAMETERS : 




; RETURNED: Key_Code holds Offset in num bytes for key table lookup 


; REGS 


USED: a,b 




; CALLS 






. ****** 


************************* 


********************************************* 


. set 


RowCount, REGO 


Temporary 


. set 


ColumnCount, REG1 


Temporary 


Find_Key : 




Id 


b, #Key_Change_Matrix 




Id 


RowCount, #4 


Examine only 4 rows 


_FKloop 


1: 




Id 


a, [b+] 


Examine 1st row for presses 


and 


a,#0f0 


Interested in PRESSES only 


ifgt 


a,#0 


Any key pressed in this row?? 


JP 


_FoundlinThisRow 




drsz 


RowCount 




JP 


_FKloopl 




sbit 


KeyError, Key_Flags 


No rows with changes? ERROR 


JP 


_KSexit 




_Foundl 


inThisRow: 




swap 


a 


Must exchange here ! ! 


X 


a,b 


Yes, get row offset from start 


. * * 


push a 


For use in mulit-key presses 

Save last row address for next key 


sc 






subc 


a, #Key_Change_Matrix+l 


Offset of 1 req'd since Id a, [b+] 


rlc 


a 


Multiply by four (num columns) 


rlc 


a 




and 


a,#0c 


Strip any trash rotated in 


Id 


ColumnCount, #4 


Set up for four column tests 


_FKloop2: 




X 


a,b 


Xchange to test columns 


rrc 


a 


Test column bit in carry 


ifc 




Transition detected in column? 


JP 


_FKlc 


Yes - jump 


X 


a,b 


No - try next column, and increment 


inc 


a 


key code (offset into ROM array) 
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drsz ColumnCount 

jp _FKloop2 

sbit KeyError, Key_Flags 

jp _KSexit 

_FKlc: 

x a, b 

x a,Key_Code 

_KSexit : 

ret 

. endsect 



.TITLE ,'LM75 Module' 
. incld cop8sgr.inc 
.incld main.inc 
.incld LM75.inc 
. incld si2c . inc 
.incld optrex2x.inc 
.incld utility. inc 
.incld keys. inc 
; PUBLIC VARIABLES 
.public LM75_Timer 
; PUBLIC PROCEDURES 
.public LM75_Init, 
.public Read_Tamb, 



; Can't find column? ERROR 



; This is the offset into the Key Matrix 
; Save Keycode for use by other routines 



LM75.asm 



Tamb_Init, Tos_Init, Thys_Init, Tcfg_Init 

Read_Tcfg, AdjTregVals 
; EXTERNAL PROCEDURES 

.extrn Send_I2C, Read_I2C, Send_I2C_Stop 

.extrn Display_Message, Copy_Array, Int2ASC, Input_Data, Fill_Buffer 
.extrn InputBuf f Init , Ascii2Sint, Load_String, Center_Field 
; EXTERNALS REQ' D 

.extrn I2CFlags, I2CRxBuff, I2CTxBuff 
.extrn Display_State : B, DegreesC_Msg: ROM, ASCii_Buf f : B, Key_Buffer:B 



.extrn Display_Buf fer : B, Mflags: 

.extrn EnterData_Msg 

; VARIABLE DEFINITIONS 

.sect variables, SEG 

TcfgState: .dsb 1 ; 

TregState: .dsb 1 ; 

. endsect 



Util_Flags:B, Key_State:I 



State variable for Tcfg task 
State variable for Tcfg task 



Used to schedule LM75 accesses 



; REGISTER DEFINITIONS 
.sect LM75Regs,REG 
LM75_Timer: .dsb 1 
. endsect 

FORM 

sect LM7 5,ROM 

FORM 

**************************************************************************** 

Name: LM75_Init Initializes LM75 related state and I2C registers 
PARAMETERS : 
RETURNED : 
REGS USED: 



CALLS : 
*********: 

LM75_Init : 



r*******-* 



c ***** * 



r*******-* 



c ****** 1 



r****************^ 



r * * * * * 



Id 
Id 
Id 



LM7 5_Timer, #0 
TcfgState, #0 
TregState, #0 



Reset access timer 
Reset state variables 



Load I2C Txbuffer with address of LM75 



Id 
Id 
ret 



I2CTxBuf f , # (LM75_Address 
I2CTxBuff+l, #T_Reg 



I2C_Read) 



Default to ' read' 

Load to point to temperature reg. 
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.FORM 










. ***********^ 


***************** 


*********************************************** 


; Name : 


Read_ 


LM7 5T 


Reads data in preselected register from addressed 
LM75. First, the "read" command is sent to the LM75, 










followed 


by reading B bytes of data. 


; PARAMETERS 


I2CTxBuff[0] = 


Address of LM75. LSb indicates R/W 






I2CTxBuff[l] = 


Pointer byte 






a = # of 


bytes 


to read 


; RETURNED: 


Display 


3uf fer 


is written with ASCII temperature data. 






If error 


occured, I2CFlags .ACKERR will be set 


; REGS 


USED: 


- 






; CALLS 




Send_I2C 


, Read_ 


_I2C 


. ****** 


* * * * * j 


**************************************************************** 


Read_LM7 5T: 








if eq 


LM7 5_ 


JTimer, #0 




; Access allowed? 


JP 


_RLM75a 






JP 


_RLM75exit 




; Not yet, get out 


_RLM7 5a 










Id 


LM75_ 


_Timer, #10 




; This allows access every 10 Mainloops 


push 


a 






; Save #bytes to read 


Id 


a, I2CTxBuf f 




; Set the "read" bit in command 


or 


a,#I2C_Read 






X 


a, I2CTxBuff 






Id 


a,#l 








jsr 


Send_ 


_I2C 




; Send address and read bit 


pop 


a 






; tbytes to read 


ifbit 


ACKERR, I2CFlags 




; LM75 Acknowledged transmission? 


. * * * * * 










JP 


_RLM75exit 






. ***** 










jsr 


Read. 


_I2C 




; a holds #bytes to read 


_RLM7 5exit : 








ret 










.FORM 










.**************************************************************************** 


; Name : 


Write_LM75T 


Writes 


data to selected register of addressed LM75. 








First, 


the "write" command is sent to the LM75, 






followed 


by the data to be written, whether temperature setting 






or pointer register value. 


; PARAMETERS 


I2CTxBuff[0] = 


Address of LM75. LSb indicates R/W 






I2CTxBuff[l] = 


Pointer byte 






I2CTxBuff[2] = 


MSbyte of set temperature 






I2CTxBuff[3] = 


LSbyte of set temperature 






a = # of 


bytes 


to send 


; RETURNED: 


If error 


occured, I2CFlags .ACKERR will be set 


; REGS 


USED: 


- 






; CALLS 




Send_I2C 


, Read_ 


_I2C 


. ****** 


********************************************************************** 


Write_LM75T: 








push 


a 






; Save #bytes to written 


Id 


a, I2CTxBuf f 




; Set for the "write" command 


and 


a, #NOT (I2C_Read) 






X 


a, I2CTxBuf f 






pop 


a 






; tbytes to read 


jsr 


Send_ 


_I2C 




; Send address and data 


jsr 


Send_ 


_I2C_Stop 




; Send STOP pattern 


ifbit 


ACKERR, I2CFlags 




; LM75 Acknowledged transmission? 


. * * * * * 










JP 


_WLM75exit 
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. ***** 








_WLM75exit : 






ret 








.FORM 








. ****** 


************** 


******* 


************************************************* 


; NAME: 


Read_Tamb 


Read 


s Ambient Temperature data from addressed LM75. 






The 


LM75's pointer register was previously set to the 






temp 


erature register during the init routine. 




The 2' s compl 


iment t 


emperature data is read and formatted for display. 


; PARAMETERS : 






; RETURNED: 






; REGS 


USED: a 






; CALLS 


: Read_ 


LM75T 




. ****** 


************** 


******************************************************** 


Read_Tamb: 






Id 


a, #2 




; Get two bytes 


jsr 


Read_LM7 5T 




; Call the I2C routine for reading temp 


ifbit 


RBF, I2CFlags 




; Did we actually recv data ? 


jsr 


Format Temperature 


; Format and display 


rbit 


RBF, I2CFlags 




; Allow next read 


ret 








.FORM 








. ****** 


********************* 


************************************************* 


; NAME: 


Tamb_Init 


Pert 


orms Initialization code for the Read_Tamb 






rout 


ine. Sets the LM75's pointer to correct register 






for 


reading the ambient temp. 


; PARAMETERS : 






; RETURNED : 






; REGS 


USED: a 






; CALLS 


: Write 


_LM75T 




. ****** 


************** 


******* 


************************************************* 


Tamb_Init : 






Id 


b, #ASCii_Buff 




; Ensure Buffer is cleared 


Id 


x, #ASCbuffLen 






Id 


a, #0x20 




; Fill with spaces for ASCII display 


jsr 


Fill_Buffer 






Id 


I2CTxBuf f+l,#T_Reg 


; Point to the Temperature register 


Id 


a, #2 




; Must send both addrs and ptr bytes 


jsr 


Write_LM75T 




; Set LM75 to correct register 


ret 








.FORM 








. ****** 


************** 


******* 


************************************************* 


; NAME : 


Tos_Init 


Init 


ialization code for the Read_Tos routine. Sets 






the 


LM75's pointer register to point to the Tos reg. 






Then 


reset the Tos task's state variable. 


; PARAMETERS : 






; RETURNED : 






; REGS 


USED: a 






; CALLS 


: Write 


_LM7 5T 




. ****** 


************** 


******* 


************************************************* 


Tos_Ini 


t : 






Id 


I2CTxBuf f +1, #Tos_Reg 


; Point to the Temperature register 


Id 


a, #2 




; Must send both addrs and ptr bytes 


jsr 


Write_LM75T 




; Set LM75 to correct register 


Id 


TregState, #0 




; Init state variable 


ret 
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FORM 
************************************************************************** 

NAME: Thys_Init Performs any necessary Initialization code for the 

Read_Thys routine. 

PARAMETERS : 

RETURNED: 

REGS USED: a 

CALLS: 
************************************************************************** 



Point to the Temperature register 
Must send both addrs and ptr bytes 
Set LM75 to correct register 
Init state variable 



Thys_Init : 

Id I2CTxBuff+l,#Thys_Reg 
Id a, #2 
jsr Write_LM75T 
Id TregState,#0 
ret 
.FORM 
**************************************************************************** 

NAME: Tcfg_Init Performs any necessary Initialization code for the 

Read_Tcfg routine. 

PARAMETERS : 

RETURNED: 

REGS USED: a 

CALLS: 
**************************************************************************** 

Tcfg_Init : 

Id I2CTxBuf f+1, #Tcfg_Reg ; Point to the Temperature register 
Id a, #2 ; Must send both addrs and ptr bytes 

jsr Write_LM75T ; Set LM75 to correct register 

ret 
.FORM 
**************************************************************************** 

NAME: Read_Tcfg Reads the Configuration register from addressed LM75. 

The LM75's pointer register is altered to point to the 
Tcfg register. Next, the 2's compliment setting data 

is read and formatted for display. Finally, the LM75's pointer register 

is reset to point to the temperature reg. 

PARAMETERS : 

RETURNED: I2CRxBuff[] holds two-byte temperature data. If error occured, 
I2CFlags.ACKERR will be set 

REGS USED: 

CALLS: Read_LM7 5T 
**************************************************************************** 

Read_Tcfg: 

Id a,#l ; Get one byte 

jsr Read_LM75T ; Call the I2C routine for reading temp 

ret 
.FORM 
**************************************************************************** 

NAME: FormatTemperature Formats the 2's compliment temperature data 

for display. 

PARAMETERS : 

RETURNED: I2CRxBuff [] holds two-byte temperature data. If error occured, 
I2CFlags.ACKERR will be set 
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REGS 


USED: 




CALLS: 




***** 


*********************************************************************** 


Format 


Temperature : 


Id 


b,#I2CRxBuff ; ptr = buffer which holds the 2's 


jsr 


Int2ASC ; Convert 2's comp to ASCII for display 


Id 


x, #Display_Buffer+24+ (DispLen-1) /2 


Id 


b, #ASCii_Buf f ; Now compute center and place 


Id 


a, #ASCbuf fLen ; temperature data in display 


jsr 


Cent er_Fi eld 


sbit 


Disp_Update, Display_State 


ret 




.FORM 






sect 


TREGS,ROM, INPAGE 




***** 


*********************************************************************** 




NAME 


: AdjTregVals Reads the Temperature data from addressed Temperature 
register in the addressed LM75. The LM75's pointer 
register must have previously been altered to point 

to the desired register. Next, the 2's compliment temperature data 

is read and formatted for display. 




PARAMETERS : 




RETURNED: I2CRxBuff holds two-byte temperature data. If error occured, 






I2CFlags.ACKERR will be set 




REGS 


USED: 




CALLS: Read_LM75T, Fill_Buffer, FormatTemperature, InputBuf f Init 






Load_String, Ascii2Sint, Write_LM75T 




**************************************************************************** 


AdjTre 


gVals : 


Id 


a,TregState ; Vector to current state 


ifgt 


a, #3 ; Check for bounds 


Id 


TregState,#0 ; Reinit if error 


add 


a, #LOW (Treg_State_Table) ; If ok, jump to current state process 


jid 




Treg_State_Table : 


.byte 


LOW(TregStateO) 


.byte 


LOW(TregStatel) 


.byte 


L0W(TregState2) 


.byte 


L0W(TregState3) 


TregSt 


ateO: ; *** Read state *** 


Id 


a, #2 ; Get two bytes 


jsr 


Read_LM75T ; Call the I2C routine for reading temp 


jsr 


FormatTemperature ; Format and display 


Id 


TregState, #1 ; Next pass, go to next state 


JP 


RdTregRet 


TregSt 


atel: 


Id 


b, #ASCii_Buf f ; *** Prepare for changes state *** 


Id 


x, #ASCbuf fLen ; Clear the Buffer for fresh entries 


Id 


a, #0x20 ; Fill with spaces 


jsr 


Fill_Buffer 


jsr 


InputBuf f Init ; Init buffer hd and tail ptrs 


Id 


TregState, #2 ; Next pass, go to state 2 


JP 


RdTregRet 


TregSt 


ate2 : ; *** Wait for input state *** 


ifeq 


Key_State, #PressTransitionState 


JP 


_TregS2a ; Has choice been made? 


JP 


RdTregRet ; No - return and look again next pass 


_TregS 


2a: 


Id 


a,Key_Buffer ; Get key from buffer 


ifeq 


a,#'E' ; Enter Key? Indicated desire to alter 


JP 


_TregS2b 


JP 


RdTregRet ; No - return and look again next pass 
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_TregS2b: 

Id a,#LOW(EnterData_Msg) ; 

Id x,#HIGH(EnterData_Msg) 

Id b, #Display_Buf fer 

jsr Load_String 

sbit Disp_Update, Display_State 



' New: 



' , 



Id TregState,#3 

RdTregRet : 

ret 

TregState3: 

jsr Input_Data 

ifbit EOB,Util_Flags 

jp _TregS3a 

jp RdTregRet 

_TregS3a: 

rbit EOB, Util_Flags 

jsr Ascii2Sint 

x a, I2CTxBuff+3 

x a, b 

x a, I2CTxBuf f +2 

Id a, #4 

jsr Write_LM75T 

Id TregState,#0 

; read it out for confirmation 

jp RdTregRet 

. endsect 



; Next pass, go to state 3 



; *** Edit setting state *** 
; Get new Treg settings 
; Enter Key pressed? 



; Now we must convert the ASCii data 

; to 2' s format . 

; Place input data in I2C Tx buff for 

; programming 

; Send address, Ptr, and data bytes 

; Once a value is entered, next pass 



message.asm 



TITLE , 'Message Module, VI. 0, 04.15.99' 
incld cop8sgr.inc 

PUBLIC MESSAGES 
public Init_Msg, TCfg_Msg, Tos_Msg, Thy_Msg, Sel_Msg, TSel_Msg 
public Tamb_Msg, EnterData_Msg, DevSel_Msg 
************************************ 

sect PAGE0,ROM,ABS=0x0200, INPAGE 
sequence to enable checksumming and 
laid ; to facilitate the loading of constants 

ret 

. ***** Message format ***** 

;** Msg_label: .DB ' ASCII Text 
Init_Msg: .DB ' Good afternoon. . . 
. db ' . . .press the any key ' , 
DevSel_Msg: . db ' (A) LM75 (B) LM84 
.db ' (C) MIC (D) KEY ' , 
Sel_Msg: .DB ' (A) Read Temperature (s) 
. db ' (B) Configure settings ',0 
TSel_Msg: .DB ' (A) Ambient (B) OverTemp 
. db '(C) Hysterisis ',0 

Thy_Msg: .DB 'Hysterisis Temperature: 
.db ' (#)adj',0 

. endsect 



************************************* 
; Every code page begins with this 



(terminator) 



************************************** 

. sect PAGE1, ROM, ABS=0x0300, INPAGE 

; sequence to enable checksumming and 



r************************************* 

; Every code page begins with this 



laid 






; to facilitate th 


ret 








Tamb_Msg: 




.DB 


' Ambient Temperature: ' 


.db 






' , o 


Tos_Msg: 




.DB 


' OverTemp/Shutdown : ' 


.db 






(#)adj' , 


TCfg_Msg: 




.DB 


'Configuration Settings: ' 


.db 






Adj?' , 


EnterData. 


_Msg: 


.DB 


'Press # to accept (D) =.' 


.db 






',0 


. endsect 
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optrex2x.asm 

.TITLE , 'Display Module, VI. 0, 07.13.98' 

.incld cop8sgr.inc 

; .incld cop888gg.inc 

.incld main.inc 

.incld optrex2x.inc 

.incld keys . inc 

. incld si2c . inc 

.incld utility. inc 

; PUBLIC PROCEDURES 

.public Display_Init , Service_Display, Display_Message, ClearDisplay 

; PUBLIC VARIABLES 

.public Display_Buf fer, Display_State 

; EXTERNALS REQ' D 

.extrn Load_Constant , Key_Msg:ROM 

.extrn KeyFlags:B, Key_Buf f er :B, Key_State:B, flags:B 

; VARIABLE DEFINITIONS 

.sect variables, SEG ; Place all vars in upper ram segment 

Display_State : .dsb 1 

display_data: .dsb 1 

Display_Buf f er : .dsb 48 ; Densitron display width 

. endsect 

.sect DISPLAY, ROM 
**************************************************************************** 

NAME: Service_Display 

PARAMETERS : 

RETURNED : 

REGS USED: a,b 

CALLS : 
**************************************************************************** 

Service_Di splay: 

ifbit Disp_Update, Display_State 

jp SDState_0 ; Update requested? 

jp SvcDispExit ; Idle state? 

SDState_0: 

ifbit DispLine2, Display_State ; Which line? 
jp _ServD2 

Id a, #080 ; **Set address to 

sbit DispLine2, Display_State ; Setup for line two on next pass 
Id b, #Display_Buf fer ; Point index at buffer 
jp _ServD3 
_ServD2 : 

rbit DispLine2, Display_State 

Id a,#0xC0 ; **Set address to position24 

rbit Disp„Update, Display_State 
Id b, #Display_Buffer+24 ; Write line #2 
_ServD3: 

jsr Update_Display 
SvcDispExit : 
ret 
.FORM 
**************************************************************************** 

NAME: Display_Init Initializes the display 

PARAMETERS : 

RETURNED : 

REGS USED: a,b 

CALLS: Display_Control 
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. ****** 


********************************************************************** 


Display 


_Init : 






rbit 


RS,PORTD , 


Clear RS, R/W, and E 




rbit 


RW,PORTD 






rbit 


E,PORTD 






Id 


a,#DISPLAYFORMAT , 


The M1641 is initialized 


as a Two 


sbit 


CMD, flags 


Indicate this is control 


data 


jsr 


Display_Control , 


line display, dispite it 


being only 


sbit 


CMD, flags , 


Indicate this is control 


data 


Id 


a,#0E 


a 16X1 




jsr 


Display_Control , 


**Display=ON, Cursor=ON, 


Blink=Off 


Id 


a,#CLEARDISPLAY , 


**Clear display 




sbit 


CMD, flags , 


Indicate this is control 


data 


jsr 


Display_Control 






Id 


Display_State, #0 , 


Reset state 




ret 








. ****** 


********************************************************************** 


; NAME : 


ClearDisplay Sends the 'Clear display' command to the display 


; PARAMETERS : 






; RETURNED: 






; REGS 


USED: a,b 






; CALLS 


: Display_Control 






.**************************************************************************** 


CI ear Display : 






Id 


a, #CLEARDISPLAY , 


Load 'clear' command 




sbit 


CMD, flags , 


Indicate this is control 


data 


jsr 


Display_Control , 






ret 








.FORM 








.*******************************■> 


********************************************* 


; NAME : 


Display_Message 






; PARAMETERS: ace = #LOW(Messac 


je Label) 






b = offset of message from start of Message buffer 


; RETURNED: 






; REGS 


USED: a,b 






; CALLS 


: Display_Control 






. ****** 


*************************■> 


********************************************* 


Display 


_Message : 






push 


a , 


Save message address 




Id 


a, #Display_Buf fer 






add 


a, b , 


Compute message address 




X 


a,b 






pop 


a 






. * * 


jsr Load_Constant 






sbit 


Disp_Update, Display_State 






. * * 


jsr Update_Displa} 


T 




ret 








. ****** 


*************************■> 


********************************************* 


; NAME : 


Update_Display Writes c 


:ontents of display buffer 


to display 


; PARAMETERS: a = command byte 


position 






b = Display_Buf ft 


:r[0] or Display_Buf fer [25^ 




; RETURNED: 






; REGS 


USED: a 






; CALLS 


: Display_Control 






. ****** 


*************************~ 


********************************************* 



<J1 



23 



www.national.com 



in 
in 



. set 


Byte_Count,REGO 






Update_ 


Display: 








sbit 


CMD, flags 




; Indicate this is a control byte 




jsr 


Display_Control 


; Set display position 




Id 


Byte_Count, #D 


ispLen 






rbit 


CMD, flags 




; Now these are data bytes 




DSL1: 










Id 


a, [b+] 




; Load byte and increment ptr 




jsr 


Display_Control 


; Send to display 




drsz 


Byte_Count 








JP 


DSL1 








ret 












****** 


************** 


*************************************************** 


* * ** * 




NAME: 


Display_Control 








PARAMETERS: ace = 


display 


command 








flags 


.CMD = 1 


if data is a control byte 






RETURNED : 










REGS 


USED: a,x 










CALLS 












****** 


************** 


*************************************************** 


* * * * * 


Display 


_Control : 








push 


a 




; Save command 




Id 


a,PORTCC 








and 


a,#0f0 




; Make PortC(0:3) inputs 




X 


a,PORTCC 








Id 


a,PORTLC 








and 


a,#0f0 




; Make PortL(0:3) inputs 




X 


a,PORTLC 








sbit 


RW, PORTD 




; Set R/W line high 




rbit 


RS,PORTD 




; Ensure Instruction reg is selected 




DCL1: 










sbit 


E, PORTD 






Set E line 




id 


a,PORTCP 






Read display data 




rbit 


E, PORTD 






Clr E line 




ifbit 


DBUSY,a 






Loop until busy flag=0 




JP 


DCL1 








Id 


a,PORTLC 








or 


a,#0f 




; Make PortL(0:3) outputs. These are 




X 


a,PORTLC 




; bits 0. .3 




id 


a,PORTCC 








or 


a,#0f 






Make PortC(0:3) outputs. These are 




X 


a,PORTCC 






bits 4. .7 




id 


a,PORTLD 






Get lower nibble data port 




and 


a,#0f0 






Strip lower nibble 




X 


a, x 






Exchange with control byte 




pop 


a 






Retrieve command 




push 


a 








and 


a,#0f 






Strip upper nibble for merging with 




or 


a, x 






original data 




X 


a,PORTLD 






Write lower nibble of command 




Id 


a,PORTCD 






Get upper nibble data port 




and 


a,#0f0 






Strip lower nibble 




X 


a, x 






Exchange with control byte 




pop 


a 






Retrieve command 




and 


a,#0f0 






Strip lower nibble for merging with 




swap 


a 






Put upper nibble in lower nibble 




or 


a, x 






Merge with original port data 




X 


a,PORTCD 






Write upper nibble of command 




rbit 


RW, PORTD 








ifbit 


CMD, flags 




; Is this a control byte? 




JP 


DCL2 




; Yes - Select the instruction register 




sbit 


RS, PORTD 




; Clr R/W line 




JP 


DCL3 
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DCL2: 






rbit RS,PORTD 






DCL3: 






sbit E,PORTD 




; Set E line 


rbit E,PORTD 




; Clr E line 


ret 






. endsect 




si2c.asm 


.TITLE ,' Software I2C Module for the C0P8 microcontroller' 


. incld cop8sgr.inc 






. incld main.inc 






. incld si2c . inc 






; PUBLIC VARIABLES 






.public I2CRxBuff, I2CTxBuff, I2CFlags 


; PUBLIC PROCEDURES 






.public I2C_Init, Send 


_I2C, Re 


ad_I2C, Send_I2C_Stop, Filter_Input 


; EXTERNAL PROCEDURES 






; EXTERNALS REQ'D 






; VARIABLE DEFINITIONS 






.sect variables, SEG 




; These are in upper RAM, but could be in low 


I2CFlags: . dsb 


1 


; I2C control/condition flags 


I2CRxBuff: .dsb 


2 


; Receive buffer 


I2CTxBuff: .dsb 


4 


; Transmit buffer 


. endsect 






REGISTER DEFINITIONS 






.FORM 






.sect I2C,R0M 






.**************************************************************************** 


; Name: I2C_Init 


Initial 


izes I2C port and flags 


; PARAMETERS : 






; RETURNED: 






; REGS USED: 






; CALLS : 






.**************************************************************************** 


I2C_Init: 






Id a,I2CPort 




; Make SDA and SCL HiZ inputs 


and a,#(NOT(SDAT ! 


3CLK) ) 


; 


x a, I2CPort 






Id a, I2CPTD 






and a,#(NOT(SDAT ! 


3CLK) ) 


; 


x a,I2CPTD 






Id I2CFlags,#0 




; Clear I2C flags 


ret 






.FORM 






.**************************************************************************** 


; Name: Send_I2C 


Transmits 'B' bytes held in I2CTxBuffer. After each 




byte is 


sent an "ACK" is expected from the slave 




device . 


All transmissions begin with the "START" 


; condition, foil 


3wed by 


the device address. The lsbit of the address 


; is the R/W bit. 


Both SCL and SDA must be in the "high" state upon 


; entering. During each 


byte xfer, the Serial Clock is square with 


; the period equa 


1 to 38 


cycles . 




|<- IS 


eye — > | <- 19cyc -> | I I 


SCL | 
; | <- 

; 1 s 




III 1 


-> | 

1 


<- Slave reads bit here 


1 t 


/ MSbit \/ 


SDA | a 




/ A 


; r 

t 




<- Master shifts out MSbit 
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; PARAMETERS: I2CTxBuff = byte(s) to be sent (always starts with address) 




a = num 


bytes to xmit 




SDA, SCL 


must be in high state upon entry 


; RETURNED: b = I2CPort 




I2CFlags .ACKERR set if not ACK from slave 




SDA, SCL 


both left in high state 


; REGS 


USED: a,b,x 




; CALLS: Filter_Input 


. ***** 


*********************************************************************** 


. set 


Count, REGO 




. set 


Byte_Count,REGl 




. set 


Delay, REG2 




Send_I2C: 




X 


a, Byte_Count 




rbit 


GIE,PSW 


; No interrupts allowed! 


Id 


x, #I2CTxBuff 


; Pointer = I2CTxBuff 


_Send_ 


START_Bit : 




Id 


b, #I2CPort 


; Pointer = Port's control reg 


sbit 


SDA, [b] 


; Pulls SDA low to indicate start of xmit 


_Byteft 


riteLoop: 


; Min spec'd delay is 4us to SCK edge 


Id 


Count, #8 


; Set for 8-bit data 


_BitWriteLoop: 




sbit 


SCL, [b] 


; Pull SCL line low 


Id 


a, [x] 


; Get next bit from I2CTxBuff and shift out 


rlc 


a 


; to SDA line. 


X 


a, [x] 


; Save shifted byte 


ifc 




; Bit=l? 


JP 


_SendOne 


; Yes - let pin pull high via Rpullup 


_SendZ 


ero : 




nop 




; Path equalization nops 


nop 






sbit 


SDA, [b] 


; No - pull SDATA pin low by configuring pin 


JP 


_Send01 


; as a low output 


_SendC 


ne : 




rbit 


SDA, [b] 


; Set SDATA pin high by making pin HiZ 


nop 




; Equalizes 1 and path Delays 


nop 






nop 






_Send01: 




DELAY_ 


3Cycles 


; Stretch to square up duty cycle 


rbit 


SCL, [b] 


; Let loose of clock line to set it high 


DELAY_ 


SCKHIGH 


; Equalize hi and lo times 


drsz 


Count 


; All 8-bits sent? 


JP 


_BitWriteLoop 


; No, Loop 


Id 


a, [x] 


; Must shift a 9th time to reset to correct 


rlc 


a 


; state. 


X 


a, [x+] 


; Bump ptr to next xmit byte 


_CheckACK: 


; After byte sent, check for "ACK" from slave 


sbit 


SCL, [b] 


; Pull SCL low 


DELAY_ 


SCKLOW 


; Wait for equalization 


rbit 


SDA, [b] 


; Release SDA line to check for ACK 


. ifndef FASTI2C 




jsr 


Filter_Input 


; Read the input with filtering 


. else 






rbit 


SCL, I2CPort 


; Release clock line (high) 


Id 


a, I2CPTP 


; Get Port's pin reg 


rlc 


a 


; and put bit in carry for merging 


. endif 






ifc 




; ACK should be a zero! 


JP 


_ACKERR 


; 


rbit 


ACKERR, I2CFlags 


; Clear error 


Id 


b, #I2CPort 


; Pointer = Port's control reg 
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drsz 


Byte_Count 


; All bytes sent? 










jmp 


_ByteWriteLoop 


; No, loop 










JP 


_Send_I2C_Exit 


; Yes, get out 










_ACKERR : 












sbit 


ACKERR, I2CFlags 


; Set error flag 










_Send_ 


I2C_Exit : 












sbit 


GIE,PSW 


; reEnable all interrupts 










ret 














.FORM 














. ***** 


******************************************* 


**************************** 


; Name 


: Send_I2C_Stop 


Transmits the "Stop" sequence on the I2C b 


us as 








indicated below. 










; PARAMETERS: SDA and 


SCL must be in HIGH state 


upon 


entry 






; RETURNED: b = #I2CPort 












SDA, SCL 


both left in high state 










; REGS 


USED: 












; CALLS : 












. ***** 


******************************************* 


********************** 


****** 


. set 


Delay, REG2 












Send_I2C_Stop: 












Id 


b, #I2CPort 












sbit 


SCL, [b] 


; Pull SDC line to prepare for 


STOP 






DELAY_ 


12C 


; Delay to rising edge of 


SCL 








sbit 


SDA, [b] 












DELAY_ 


9C 


; Delay for equalization 










rbit 


SCL, [b] 


; Release SCL line for hi 


gh 








DELAY_ 


9C 


; Delay for equalization 










rbit 


SDA, [b] 


; Release SDA line to inc 


icate 


STOP 






ret 














.FORM 














. ***** 


******************************************* 


**************************** 


; Name 


: Read_I2C 


Clocks in B bytes from a 


slave 


and places 


them 


into the 






I2CRxBuffer. After each 


byte is read, an 


"ack" 


is sent. 




After the last byte is read a "NACK" is sent, f 


ollowed by 


the "STOP" 




bit. This routine assumes prior sending o 


f the 


I2C device 


address and 




"read" bit - i.e 


. - no "Start" bit is sent 


here . 


If the cc 


de is 






assembled with 


-he "DEF=FASTI2C" control, 


bit f 


iltering is 


exel 


ided, 




yielding faster 


execution . 












l<— 


23 eye >|< 22 eye 


> 






s 


CL 


1 






















\_/ 






s 


DA 




/ \ 








3 samples 


-> 


; PARAMETERS: SCL must be in the HIGH state upon entering 








a = no . 


of bytes to read 










; RETURNED: I2CRxBu 


ff holds slave data byte(s 


) 








; REGS 


USED: a,b,x 












; CALLS: Filter_ 


Input 










. ***** 


*********************************************************************** 


. set 


Count, REGO 












. set 


Byte_Count,REGl 












Read_I2C: 












rbit 


GIE,PSW 


; No interrupts allowed! 










Id 


x, #I2CRxBuff 


; Pointer = RcvBuffer 










X 


a, Byte_Count 


; Setup for byte loop 










sbit 


SCL, I2CPort 


; Pull clock line low 
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_ByteReadLoop : 
Id Count, #8 
_BitReadLoop : 



. ifndef FASTI2C 


jsr 


Filter_Input 


. else 




rbit 


SCL, I2CPort 


Id 


a, I2CPTP 


rlc 


a 


. endif 


sbit 


SCL, I2CPort 


Id 


a, [x] 


rlc 


a 


X 


a, [x] 


drsz 


Count 


JP 


_BitReadLoop 


drsz 


Byte_Count 


JP 


_Send_ACK_Bit 


_Send_ 


_NACK_Bit: 


rbit 


SDA, I2CPort 


rbit 


SCL, I2CPort 


DELAY. 


_9C 


jsr 


Send_I2C_Stop 


JP 


_ReadExit 


_Send_ 


_ACK_Bit : 


sbit 


SDA, I2CPort 


rbit 


SCL, I2CPort 


X 


a, x 


inc 


a 



x a, x 

DELAY_9C 

sbit SCL,I2CPort 

rbit SDA, I2CPort 

DELAY_9C 

jmp _ByteReadLoop 

_ReadExit : 

sbit RBF, I2CFlags 

sbit GIE,PSW 

ret 

.FORM 



ckkkkki 



r*********-* 



Name: Filter_Input 



; Set for 8-bit data 



Read the input with filtering 

Release clock line (high) 

Get Port's pin reg 

and put bit in carry for merging 

Toggle clock line low 

Get rec'd byte in progress 

and rotate in the new bit 

8 bits rec'd? 

Loop until all 8 bits are rec'd 

All bytes read? 

No, send "ACK" and loop 

; Yes, send "NACK" and "STOP" 
Release SDA line to indicate NACK 
Release SCL line for high 
Wait for end of high period 
and then send the STOP condition 



Yes - Pull SDA line low 
Release SCL line for high 
Increment Rx buffer pointer 



Wait for end of high period 

Pull SCL line low 

Release SDA line for next bit 

Delay before looping for equalization 



Set buffer full flag 
reEnable all interrupts 



ckkkkkkkkkk-k-k-k-k-k-kk-k-k-kkkkkkkkkkkk-k-k-k-k-k-kk-k-k-kkkkkkkkkkkk-k* 

Samples the Rx pin three times at even intervals and 

then takes the majority as the bit decision. The SCL 

line is low upon entering and is released to its high 
state prior to sampling. 



SCL 



SDA 



\_/ XXX \_/ 

_/ \ l_l_l / \_ 

3 samples -> III 

SCL is in the "low" state 

I2CFlags . STRT either set or cleared 



PARAMETERS : 

RETURNED : 
REGS USED: 
CALLS : 



Exec time: 23 cycles 

*kkkkkkkkkkk******k-kkkkkkkkkkkkkk***-k-k*-k*-k*kkkkkkkkkkk*-k-k-k-k*k*k*kkkkkkkkkkk* 



Carry = rec'd bit 
a,b 



Filter_Input : 

rbit SCL, I2CPort 

Id b,#I2CPTP 



; Release clock line (high) 
; Point b at Port's pin reg 
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clr 

nop 

ifbit 

inc 

ifbit 

inc 

ifbit 

inc 

re 

ifgt 

sc 

; Otherwise, bit is a zero 

ret ; 

. endsect 



Special CONSTANTS / Bit Equates 



SDA, [b] 

a 

SDA, [b] 

a 

SDA, [b] 

a 

a,#l 



Duty cycle equalizing nop 
Sample 3 times, 2 cycles apart 

Sample #2 

Sample #3 

Reset Carry for bit decision 

Majority rules 

Set Carry if bit is a one 



main.inc 



REGO 




= OxFO 


REG1 




= OxFl 


REG2 




= 0xF2 


REG3 




= 0xF3 


TRUE 




= OFF 


FALSE 




= 00 


topof stack 


= 06f 


TimerT 


Lck 


= 


CONV 




= 1 



Used as general purpose regs 



r ****** i 



r********* 



************** 

one_millisec 
FOSC 
one_ms 
f ive_ms 
ten_ms 
twenty_ms 
f if ty_ms 
seventy_ms 
f ifty_us 
onehundred_us 
; Main_Period 
Main_Period 

************** 



CLOCK DEFINITION 

r*****************************-> 



******** 



r****************** 



r**************** 



= 1000 
= 1000 
= FOSC 
= 5*one_ms 
= 2*five_ms 
= 4*five_ms 
= 10*five_ms 
= 7 0*one_ms 
= one_ms/2 
= one_ms/10 
= fifty_ms 
= twenty_ms 
t************* 



10.0 MHZ osc yeilds 1000 ticks/ms 
10.0 MHZ osc yeilds 1000 ticks/ms 



Sets main loop period 
Sets main loop period 



r ****** * 



r****************** 



These are software looping reload values @ 6 cycles per 
******************************************************************* 



loop. 

********* 



ONE_MS 

FIVE_MS 

TEN_MS 



= FOSC/6 
= 5*ONE_MS 
= 10*ONE MS 



****************************************************************** 

These are TMRxHI/LO reload values. 
********************************************************* 



********* 



**************** 



RTC_FREQ 



= 4*FOSC 



constant.inc 



MPB = 

MPBSIZE 

Menu_Of f set 

Func_Offset 

Fnl_Offset 

Fn2_Offset 

Fn3_Offset 

InitCode_Offset 

Prev_Of f set 

Exec_Offset 



Disp_Update 



15 



2 

4 

6 

8 

10 

12 

14 



display.inc 
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in 
in 



DispLine2 = 1 


DispLen 


= 16 ; Length of Display line in chars 


RS 


= 4 ; Display register select bit 


RW 


= 5 ; Display Read/ notWrite line 


E 


= 6 ; Display Enable line 


DBUSY 


= 3 ; Display Busy line is PortC.3 


CMD 


= 7 ; Display Command/Data flag 


SHIFT_DISPLAY = 01C 


DISPLAY 


_FORMAT = 038 


CNTRST_ 


FREQ = TEN_MS 




fasti2c.inc 


. ************************************************************** 


; Fas 


tI2C.INC Include file constant and variable definition 


. ****** 


******************************************************** 


; Bit p 


osition equates 


BITO = 


0x01 


BIT1 = 


0x02 


BIT2 = 


0x04 


BIT3 = 


0x08 


BIT4 = 


0x10 


BIT5 = 


0x20 


BIT6 = 


0x40 


BIT7 = 


0x80 


. ***** 


I2CFlags register bit definitions 


TBF 


= 


RBF 


= 1 


NACK 


= 2 


ACK 


= 3 


ACKERR 


= 4 


. ***** 


I2C Port assignment 


I2CPort 


= PORTLC ; Defines where the I2C port is 


I2CPTD 


= PORTLD 


I2CPTP 


= PORTLP 


SDA 


=4 ; L.4 and L.5 


SCL 


= 5 


SDAT 


= BIT4 ; L.4 and L.5 


SCLK 


= BIT5 


. ****** 


********************************************************************** 


; Delay 


Macros. Total delay time is ( 6N + 1) + M cycles, where N is the no. 




of loops and M is any extra instructions used to add cycles 


. ****** 


********************************************************************** 


.MACRO 


DELAY_22C 


Id 


Delay, #3 


Id 


Delay, #3 


drsz 


Delay 


JP 


.-1 


.ENDM 




.MACRO 


DELAY_SCKHIGH 


Id 


Delay, #2 


drsz 


Delay 


JP 


.-1 


.ENDM 




.MACRO 


DELAY_SCKLOW 


Id 


Delay, #2 


drsz 


Delay 


JP 


.-1 


.ENDM 




.MACRO 


DELAY_15C 


nop 




Id 


Delay, #2 


drsz 


Delay 


JP 


.-1 


nop 




.ENDM 




.MACRO 


DELAY_13C 


Id 


Delay, #2 
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drsz Delay 






jp .-1 






.ENDM 






.MACRO DELAY_12C 






nop 






Id Delay, #1 






Id Delay, #1 






drsz Delay 






jp .-1 






nop 






.ENDM 






.MACRO DELAY_9C 






nop 






Id Delay, #1 






drsz Delay 






jp .-1 






nop 






.ENDM 






.MACRO DELAY_3Cycles 






nop 






nop 






nop 






.ENDM 






.MACRO DELAY_2C 






nop 






nop 






.ENDM 






.**************************************************************************** 


.MACRO DELAY_T1 




; Spec requires 4us Delay 


.if FOSC > 200 






nop 






.if FOSC > 400 






nop 






.if FOSC > 600 






nop 






.if FOSC > 800 






nop 






. endif 






.endif 






.endif 






.endif 






.ENDM 




Keys.inc 


ROWS_PORT 




PORTD 


COLS_PORT 




PORT I 


CHANGE 




; Status indicator for keyboard 


PRESS 




1 


KeyError = 




2 ; Keyboard error flag 


Key_Idle_State 







Debounce_State = 




1 


PressTransitionState = 




2 


ReleaseTransitionState = 




3 

optrex2x.inc 


Disp_Update = 






DispLine2 = 1 






DispLen = 24 




Length of Display line in chars 


RS =4 




Display register select bit 


RW =5 




Display Read/ notWrite line 


E =6 




Display Enable line 


DBUSY = 3 




Display Busy line is PortC.3 


CMD = 7 




Display Command/Data flag 


SHIFT_DISPLAY = Ox 


1C 




DISPLAYFORMAT = Ox 


38 




CLEARDISPLAY = Ox 


01 
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in 
in 





si2c.inc 


. ****** 


******************************************************** 


; SI2C.INC Include file constant and variable definition 


. ****** 


******************************************************** 


; Bit p 


osition equates 


BITO = 


0x01 


BIT1 = 


0x02 


BIT2 = 


0x04 


BIT3 = 


0x08 


BIT4 = 


0x10 


BIT5 = 


0x20 


BIT6 = 


0x40 


BIT7 = 


0x80 


. ***** 


I2CFlags register bit definitions 


TBF 


= 


RBF 


= 1 


NACK 


= 2 


ACK 


= 3 


ACKERR 


= 4 


. ***** 


I2C Port assignment 


I2CPort 


= PORTLC ; I2C port pins and cntrl reg 


I2CPTD 


= PORTLD 


I2CPTP 


= PORTLP 


SDA 


=4 ; L.4 and L.5 


SCL 


= 5 


SDAT 


= BIT4 ; L.4 and L.5 


SCLK 


= BIT5 


. ****** 


********************************************************************** 


; Delay 


Macros. Total delay time is ( 6N + 1) + M cycles, where N is the no. 




of loops and M is any extra instructions used to add cycles 


. ****** 


********************************************************************** 


.MACRO 


DELAY_SCKHIGH ; 12 cycle delay 


Id 


Delay, #0 ; 3 eye each 


Id 


Delay, #0 


Id 


Delay, #0 


Id 


Delay, #0 


.ENDM 




.MACRO 


DELAY_SCKLOW 


Id 


Delay, #2 


drsz 


Delay 


JP 


.-1 


.ENDM 




.MACRO 


DELAY_12C 


nop 




Id 


Delay, #1 


Id 


Delay, #1 


drsz 


Delay 


JP 


.-1 


nop 




.ENDM 




.MACRO 


DELAY_9C 


nop 




Id 


Delay, #1 


drsz 


Delay 


JP 


.-1 


nop 




.ENDM 




.MACRO 


DELAY_3Cycles 


nop 




nop 




nop 




.ENDM 
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Notes 



LIFE SUPPORT POLICY 

NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT AND GENERAL 
COUNSEL OF NATIONAL SEMICONDUCTOR CORPORATION. As used herein: 



1. Life support devices or systems are devices or 
systems which, (a) are intended for surgical implant 
into the body, or (b) support or sustain life, and 
whose failure to perform when properly used in 
accordance with instructions for use provided in the 
labeling, can be reasonably expected to result in a 
significant injury to the user. 



A critical component is any component of a life 
support device or system whose failure to perform 
can be reasonably expected to cause the failure of 
the life support device or system, or to affect its 
safety or effectiveness. 
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^^M National Semiconductor 
^yf Corporation 

*^ Americas 

Tel: 1-800-272-9959 
Fax: 1-800-737-7018 
Email: support@nsc.com 
www.national.com 



National Semiconductor 
Europe 

Fax: +49(0) 180-530 85 86 

Email: europe.support@nsc.com 

Deutsch Tel: +49 (0) 69 9508 6208 

English Tel: +44 (0) 870 24 2171 

Francais Tel: +33 (0) 1 41 91 8790 



National Semiconductor 
Asia Pacific Customer 
Response Group 

Tel: 65-2544466 
Fax: 65-2504466 
Email: ap.support@nsc.com 



National Semiconductor 
Japan Ltd. 

Tel: 81-3-5639-7560 
Fax: 81-3-5639-7507 
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National does not assume any responsibility for use of any circuitry described, no circuit patent licenses are implied and National reserves the right at any time without notice to change said circuitry and specifications. 



